/ DEC TAPE COPY PROGRAM T, FLEI5CHMANN 9/70 

/ DIGITAL. EQUIPMENT CQRP, MAYNARD , MA 
/MODIFIED BY R , SCHOONOVER 12/71 
/MODIFIED BY ED HILTON 5/5/72 
/ 

/PROGRAM COPIES AN ENTIRE DECTAPE FROM SPECIFIED INPUT UNIT 
/TO OUTPUT UNIT. FIRST PASS DOES A READ-WRITE SEQUENCE 
/DOWN ENTIRE TAPE. SECOND PASS DOES A READ-READ SEQUENCE 
/IN REVERSE BACK TO BPT , 

/ 

/OECTAPES MUST BE STANDARD FORMAT C578 OR 576 BLOCKS 
/256WQRPS/BL0CK) . 

/ 

/IF THE INPUT TAPE HAS 1102 BLOCKS AND THE OUTPUT TAPE 
/HAS 1100, A WARNING WILL BE ISSUED. THIS WARNING MAY 
/BE IGNORED IF INPUT TAPE FILES WERE WRITTEN VIA ADVANCED 
/SOFTWARE, SINCE BLOCKS 1100 AND 1101 ARE NOT WRITTEN UNDER 
/THAT SYSTEM. 

/ 

/IF DURING PASS2 A DATA COMPARE ERROR IS ENCOUNTERED , AN 
/ERROR MESSAGE WILL BY TYPED. 

/PROGRAM USES A DATA BUFFER WHOSE SIZE IS A FUNCTION A AVAILABLE CORE 
/6K FOR AN 8K SYSTEM, 12K FOR AN 16K SYSTEM, 18K FOR AN 24K SYSTEM, 
/AND 24K FOR AN 32K SYSTEM. EXTRA 4K PAGES DO NOT AFFECT 
/DATA BUFFER SIZE. 

/ 

/PROGRAM EXECUTION REQUIRES APPROX. 2 1/2 MINUTES. 

. EBREL 



PAGE 2 


DTCOPY 

SRC 

DTCOPY 






.TITLE 

7 

00000 

R 

4 0 0 0 0 0 

A 

UQQ3W 

400000 

00001 

R 

0 0 0 0 0 0 

A 


0 

0000 2 

R 

0 0 0 0 0 0 

A 


0 

0 0 0 0 3 

R 

M 0 0 0 0 0 

A 


0 

mm a 

R 

0 0 0 622 

R 


, DS A 

0 D 0 0 5 

R 

000033 

R 


.□SA 

0 0 0 0 6 

R 

042403 

A 


. S I XBT 

00007 

R 

172031 

A 



00010 

R 

0 0 0 0 0 0 

A 


0 

00011 

R 


A 


.BLOCK 

00020 

R 

0 0 0 000 

A 

SYSERR 

0 

00021 

R 

0 0 0 0 0 0 

A 

ERCODE 

0 

00022 

R 

000000 

A 


0 

00023 

R 

0 0 0000 

A 


0 

00024 

R 

0 0 0 0 0 0 

A 


0 

00025 

R 

0 0 0 0 0 0 

A 


0 

00026 

R 

000000 

A 


0 

00027 

R 

0 0 0 0 0 0 

A 


0 

03030 

R 

000000 

A 


0 

00031 

R 

0 0 0 0 0 0 

A 


0 

00032 

R 

0 0000 0 

A 


0 

/ 






7 

03033 

R 

0 0 0 0 0 0 

A 

INIT 

0 

03034 

R 

703302 

A 


CAF 

03035 

R 

200726 

R 


LAC 

030 36 

R 

740001 

A 


Cl'IA 

00037 

R 

041066 

R 


DAC 

0 3 0 4 0 

R 

201071 

R 


LAC 

00041 

R 

100624 

R 


JMS 

030 42 

R 

1 W 0702 

R 


JMS 

00043 

R 

200733 

R 

A5KIN 

LAC 

00044 

R 

740001 

A 


CM A 

000 45 

R 

041066 

R 


0 AC 

00046 

R 

201072 

R 


LAC 

00047 

R 

100624 

R 


JMS 

00050 

R 

100710 

R 


JMS 


DTCOPY 


SERV 
IN IT 

” DTCOPY n 


7 


MESS 1 

7SHUT OFF MONITOR 
7GET WC OF MESS 1 

SBWC# 

7SHIP TO SIXBT UNPACK ROUTINE 

CHESS1+1 

7GET ADQR OF MESS1 

SBSTRP 

7STRIP AND PRINT 

CRLF 

MESS2 

/GET WC OF MESS2 

SBWC 

/SHIP TO SIXBT UNPACK ROUTINE 

(MESS2+1 

/GET ADDR OF MESS2 

SBSTRP 

/STRIP AND PRINT 

K8RD 

/GET ANSWER TO MESS2 


/RETURN WITH RESPONSE 
/IN (ANSW+2) 


EJECT 



PAGE 3 


0TCOPY 

SRC 

DTCOPY 



00051 

R 

201042 

R 


LAC 

ANSW+2 


00052 

R 

100610 

R 


JMS 

NUMBER 

/VALID UNIT# ? 

00053 

R 

740200 

A 


SZA 



0 0 0 5 4 

R 

600043 

R 


JMP 

ASKIN 


00055 

R 

201042 

R 


LAC 

A N S W + 2 


0 0056 

R 

501073 

R 


AND 

(7 


00057 

R 

744020 

A 


RCR? 

RTR? RAR 


000 60 

R 

742020 

A 





00061 

R 

740020 

A 





00062 

R 

0 4 10 57 

R 


DAC 

UNTIN 

/STORE INPUT UNIT & 

00063 

R 

200740 

R 

ASKQUT 

LAC 

MESS3 

/GET WC OF MESS3 

00064 

R 

740001 

A 


CM A 



00065 

R 

041066 

R 


DAC 

SB WC 

/SHIP TO SIXBT STRIP 

00066 

R 

201074 

R 


LAC 

(MESS3+1 


0 0 067 

R 

1 0 0 624 

R 


JMS 

3BSTRP 


00070 

R 

100710 

R 


JMS 

KURD 

/GET ANSWER TO MESS3 








/RETURN WITH ANSWER 








/IN ANSW+2 

00071 

R 

201042 

R 


LAC 

ANSW+2 


00072 

R 

1 0 0610 

R 


J NS 

NUMBER 

/VALID UNIT # 7 

00073 

R 

740200 

A 


SZA 



00074 

R 

600063 

R 


JMP 

ASKOUT 


0 0075 

R 

201042 

R 


LAC 

ANSW+2 


0 0 0 7 6 

R 

5 0 1073 

R 


AND 

C 7 


0007 7 

R 

744020 

A 


RCR? 

RTR? RAR 


0010 0 

R 

742020 

A 





00101 

R 

740020 

A 





00102 

R 

5 4 1057 

R 


SAD 

UNTIN 


00103 

R 

600112 

R 


JMP 

UNITED 


00104 

R 

041060 

R 


DAC 

UNTUUT 

/STORE OUTPUT UNIT# 

0 0 i 0 5 

R 

201075 

R 


LAC 

(-14000 


0 0 10 6 

R 

041045 

R 


DAC 

WC 


0 a 1 0 7 

R 

201076 

R 


LAC 

(30 


0 0 110 

R 

041053 

R 


DAC 

SKPBLK 


00111 

R 

100551 

R 


JDS 

CQRCHK 

/FIND OUT HOW MUCH CORE? 

00112 

R 

201 0 1 4 

R 

UNITEQ 

LAC 

MESS9 

/GET WC OF MESS9 

00113 

R 

740001 

A 


CM A 



001.14 

R 

041066 

R 


DAC 

SBWC 

/SHIP TO SIXBT STRIP ROUTINE 

0 0115 

R 

201 0 7 7 

R 


LAC 

(MESS9+1 

/GET APDR OF MESS 9 

00116 

R 

100624 

R 


JMS 

SBSTRP 

/STRIP AND PRINT 

00117 

R 

100702 

R 


JMS 

CRLF 


0 0120 

R 

600043 

R 


JMP 

ASKIN 


00121 

R 

201057 

R 

RESTRT 

LAC 

UNTIN 


00122 

R 

707545 

A 


DTLA 


00123 

R 

201060 

R 


LAC 

UNTQUT 


00124 

R 

707545 

A 


DTLA 


00125 

R 

600033 

R 


JMP 

INIT 







.EJECT 




PAGE 
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DTCOPY SRC 


DTCOPY 


/P ASS 1 READS FROM INPUT UNIT ANO WRITES ONTO OUTPUT UNIT 






/DATA 

BUFFER 

SIZE IS 

00126 

R 

141052 

R 

PASS1 

D/.M 

QURBLK 

00127 

R 

201044 

R 


LAC 

BUFFER 

00 ISO 

R 

661 100 

R 


DAC* 

C31 

00161 

R 

201057 

R 


LAC 

UNTIN 

00162 

R 

1 0 O 352 

R 


J MS 

SEARCH 

00163 

R 

201054 

R 


LAC 

READ 

0 0 134 

R 

707544 

A 


DTXA 


0U 1 35 

R 

201 0 4 5 

R 


LAC 

wc 

00136 

R 

0 6 1 0 7 6 

R 


DAC* 

(30 

00137 

R 

1 00454 

R 


J M S 

FLGCHK 

0 0140 

R 

740200 

A 


S/A 


00141 

R 

600463 

R 


JriP 

ERROR 

00142 

R 

201050 

K 


LAC 

STOP 

00143 

R 

707544 

A 


DTXA 


00144 

R 

201044 

R 


LAC 

BUFFER 

U 0145 

R 

061 100 

R 


DAC* 

(31 

00146 

R 

2 0 1O60 

R 


LAC 

UNTOUT 

00 147 

R 

100352 

R 


JMS 

SEARCH 

0015D 

R 

2O1055 

R 


LAC 

WRITE 

00151 

R 

707544 

A 


DTXA 


00152 

R 

201045 

R 


LAC 

WC 

00153 

R 

M61076 

R 


DAC* 

(30 

0O154 

R 

100454 

R 


JHS 

FLGCHK 

0 0 155 

R 

740200 

A 


SZ A 


00 156 

R 

600463 

R 


JiiP 

ERROR 

00157 

R 

201050 

R 


LAC 

STOP 

00 160 

R 

707544 

A 


DTXA 


00161 

R 

201052 

R 


LAC 

QURBLK 

00162 

R 

3 4 1 yj 5 3 

R 


TAD 

SKPBLK 

00163 

R 

M41052 

R 


DAC 

QURBLK 

0 0164 

R 

541101 

R 


SAD 

C1100 

00165 

R 

600167 

H 


JMP 

CHK 1 1 

00166 

R 

500127 

R 


JMP 

PASS 1 + 1 


.EJECT 


A FUNCTION OF AVAILABLE CORE , 


/READ DATA FROM INPUT UNIT 


/WRITE DATA ONTO OUTPUT UNIT, 


/UPDATE BLOCK POINTER 



PAGE 5 


DTCOPY SRC 


OTCOPY 


o 


/ FOLLOWING ROUTINE CHECKS TAPE SIZES, TAPE CAN HAVE 
/ 1100 OK 1102 (OCT) BLOCKS, 


Q 

0O1B7 

R 

901 0 44 

R 

CHKll 

LAC BUFFER 


o 

00170 

R 

061 100 

R 


0 AC* (31 




00171 

R 

201 057 

R 


LAC UNTIN 


o 

O 

001/2 

R 

1 0 0 352 

R 


JMS SEARCH 


0 0 1 7 3 

R 

201054 

R 

CHKIN 

LAC READ 

/CHECK INPUT TAPE 



00174 

R 

707544 

A 


i) TXA 



O 

0O175 

R 

201102 

R 


LAC (-1000 


o 

00176 

R 

(U 6 1 to 7 6 

R 


DAO (30 




00177 

R 

100454 

R 


JMS FLGCHK 


O 

o 

0 0 2 0 0 

R 

740200 

A 


52 A 


002O1 

R 

6 0 0 46 3 

R 


JfiP ERROR 

/TAPE HAS 1100 BLOCKS 



00202 

R 

201050 

R 


LAC STOP 

/TAPE HAS 1102 BLOCKS, 


o 

00203 

R 

707544 

A 


P T X A 


o 

00204 

R 

201044 

R 


LAC BUFFER 




00205 

R 

061100 

R 


0 AC* (31 


o 

o 

00206 

R 

201060 

R 


LAC UNTOUT 


00207 

R 

100352 

R 


JMS SEARCH 




00210 

R 

201055 

R 

CHKQUT 

LAC WRITE 

/CHECK OUTPUT TAPE 


o 

00211 

R 

707544 

A 


P T X A 


o 


00212 

R 

2011 0 2 

R 


LAC (-1000 




00213 

R 

0 6 1 to 7 6 

R 


DAO C3to 



o 

00214 

R 

t 0 v) 4 5 4 

R 


JMS FLGCHK 


o 

00215 

R 

7402 0 to 

A 


SZA 




00216 

R 

600463 

R 


JMP ERROR 

/OUTPUT TAPE HAS 1100 BLOCKS 


o 

00217 

R 

201000 

R 


LAC STOP 

/OUTPUT TAPE HAS 1102 BLOCKS 

o 

00220 

R 

707544 

A 


D T X A 




00221 

R 

201 103 

R 


LAC (1101 


o 

o 

00222 

R 

041052 

R 


DAC QURBLK 


00223 

R 

201044 

R 


LAC BUFFER 




04224 

R 

0 61100 

R 


DAC* (31 


o 

o 

00225 

R 

201057 

R 


LAC UNTIN 


00226 

R 

1 0 0413 

R 


JMS SEARCH 




00227 

R 

231054 

R 


LAC READ 



o 

0 0230 

R 

707544 

A 


DTX A 


o 


00231 

R 

201 102 

R 


LAC (»1000 




00232 

R 

061076 

R 


DAC* (30 



o 

00233 

R 

100454 

R 


JMS FLGCHK 


o 

00234 

R 

740200 

A 


SZA 




0 0 235 

R 

600463 

R 


JMP ERROR 



u 

00236 

R 

201050 

R 


LAC STOP 


o 

00237 

R 

707544 

A 


DTX A 



00240 

R 

201104 

R 


LAC (COMP 



o 

00241 

R 

061100 

R 


DAC* (31 


o 

00242 

R 

201044 

R 


LAC BUFFER 



00243 

R 

061105 

R 


DAC* (10 



o 

0 024 4 

R 

201060 

R 


LAC UNTOUT 


o 

0024 5 

R 

10H413 

R 


JMS SEARCH 



00246 

R 

201054 

R 


LAC READ 



o 

00247 

R 

7 0 7 5 4 4 

A 


D T X A 


o 

00250 

R 

201102 

R 


LAC (-1000 



00251 

R 

0 61 (5 7 6 

R 


DAC* (30 



o 








o 

o 








o 

o 








o 
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DTCOPY SRC 


or cup y 


00252 R 100320 R 

00253 R 20.1.0 50 R 

00254 R 707544 A 


JMS COMAGN 
LAC STOP 
QTXA 
•EJECT 



PAGE / 


OTCOPY SRC DTCOPY 






/ FOLLOWING ROUTINE IMPLEMENTS PASS2 TO CHECK FOR 
/DATA ERRORS. A PORTION OF THE INPUT TAPE IS READ INTO 
/CORE AND THEN A PORTION OF THE OUTPUT TAPE IS READ 
/AMO WORD BY WORD COMPARED TO INPUT, ANY ERROR RESULTS 
/IN THE TYPE OUT "DATA COMPARE ERROR", 

0 i'l 255 

R 

201106 

R 

PASS2 

LAC (1077 

00256 

R 

041052 

R 


DAC QURBLK 

00257 

R 

2 ft 10 44 

R 


LAC BUFFER 

00260 

R 

06110ft 

R 


DAC* (31 

00261, 

R 

201057 

R 


LAG UNTIN 

0026a 

R 

100413 

R 


JMS SEARCH 

0 ft 263 

R 

201054 

R 


LAC REAP /READ INPUT TAPE 

0 ft 26 4 

R 

707544 

A 


DTX A 

0 0266 

R 

a fl 1 ft 4 5 

R 


LAC WC 

00266 

R 

061076 

R 


DAC* (3ft 

00267 

R 

100454 

R 


JMS FLGCHK 

0 0270 

R 

7 4 ft 2 ft ft 

A 


S2 A 

00271 

R 

600463 

R 


JMP ERROR 

00272 

R 

201050 

R 


LAC STOP 

00273 

R 

7 ft 7 5 4 4 

A 


DTX A 

00274 

R 

2 ft 1 ft 4 4 

R 


LAC BUFFER 

00275 

R 

061105 

R 


DAC* (10 

00276 

R 

201 1 ft 4 

R 


LAC (COMP 

00277 

R 

061100 

R 


DAC* (31 

00300 

R 

2 ft 1 ft 6 0 

R 


LAC UNTOUT 

00 301 

R 

100413 

R 


JMS SEARCR 

00 302 

R 

201054 

R 


LAC REAP /READ OUTPUT TAPE 

00 303 

R 

707344 

A 


DTX A 

0034 4 

R 

2ft 1045 

R 


LAC WC 

0 ft 30 5 

R 

061076 

R 


DAC* (30 

0 0 306 

R 

10ft320 

R 


JMS COM AGN 

0 ft 30 7 

R 

201050 

R 


LAC STOP 

0 0 3 1 ft 

R 

707544 

A 


DTX A 

00311 

R 

201053 

R 


LAC SKP8LK 

00312 

R 

341107 

R 


TAD (-1 

00313 

R 

341052 

R 


SAD QURBLK 

0 0 314 

R 

6 ft ft 3 4 3 

R 


JMP DUNE 

00315 

R 

7 4 ft ft ft 1 

A 


CM A 

00316 

R 

341052 

R 


TAD QURBLK 

00317 

R 

6 ft ft 2 5 6 

R 


JMP PASS2+1 
.EJECT 




PAGE a DTC.OPY SRC DTCDPY 

/COMPARE ROUTINE 

/DURING THE READING OF THE OUTPUT TAPE THIS ROUTINE 
/SEES EACH DATA BREAK AND COMPARES THE DATA WORD 
/TO THE APPROPRIATE WORD IN THE INPUT BUFFER . THIS 
/ELIMINATES THE NEED FOR A BUFFER IN CORE FOR THE 
/OUTPUT TAPE DATA DURING PASS2. 

/ 

COM AGN 0 

DTEFiDTRB 
SKP1CLA 
JMP ERROR 
O f OF 
JMP . +2 
JMP* COMAGN 
LAC* (31 
SAD (COMP 
JMP COM AGN + 1 
LAC* (31 
DAC TEMP 
LAC* TEMP 
SAD* 10 
JMP , +2 

JMP error 

LAC (COMP 
DAC* (31 
JMP COMAGNM 

DONE LAC MESS4 /GET WC OF MESS 4 

CM A 

DAC SB WC /SHIP TO SIXBT UNPACK ROUTINE 
LAC (MESS 4+1 /GET ADDR OF MESS4 

J MS SBSTRP /STRIP AND PRINT 

JMS CRLF 

JMP ASKIN /PROGRAM COMPLETE 

/SYSTEM EXERCISER MUST BE CALLED 
/IN AGAIN OR RESTARTED FROM 
/ONE OF THE RESTART ADDRESSES « 

* EJECT 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 



00320 

R 

000000 

A 

o 

00321 

R 

707573 

A 


0O322 

R 

751000 

A 


0O323 

R 

600463 

R 

o 

00324 

R 

707601 

A 

00325 

R 

600327 

R 


00 326 

R 

620320 

R 

o 

00327 

R 

221100 

R 


00330 

R 

541104 

R 


00 331 

R 

600321 

R 

o 

0M332 

R 

221100 

R 

0 0 3 3 3 

R 

041061 

R 


00334 

R 

221061 

R 

o 

00335 

R 

560010 

A 


0W336 

R 

600340 

R 


00337 

R 

600463 

R 

Q 

003 40 

R 

2011 4 

R 


00341 

R 

061100 

R 


00342 

R 

600321 

R 

o 

0M343 

R 

200745 

R 

0 0344 

R 

740001 

A 


00345 

R 

041066 

R 

o 

00346 

R 

2 0 1110 

R 

00347 

R 

10M624 

R 


0 03 50 

R 

1007M2 

R 

o 

00351 

R 

600M43 

R 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PAGE 9 


QTCOPY 

SRC 

QTCOPY 

/ THE FOLLOWING ROUTINE WILL SEARCH FOR THE BLOCK NUMBER 
/ SPECIFIED BY THE CONTENTS OF OURBLK, THE DESIRED UNIT 
/ NUMBER MUST BE IN AC BITS 0-2 UPON CALLING THE ROUTINE 
/ CONTROL WILL RETURN TO USER WHEN BLOCK IS FOUND IN 
/ THE FORWARD DIRECTION, 

0 0 15 5 2 

R 

0 0 0 0 0 0 

A 

SEARCH 0 

Pi 0 3 5 3 

R 

041056 

R 

PAQ UNIT 

0 9 3 5 4 

R 

341046 

R 

TAD SRCRVN 

00355 

R 

707545 

A 

DTLA 

00356 

R 

161076 

R 

OZM* (30 

00357 

R 

100454 

R 

JMS FLGCHK 

00 360 

R 

740200 

A 

SZA 

00361 

R 

600376 

R 

JMP SRCFWD 

00362 

R 

22 1 100 

R 

LAC* (31 

00363 

R 

041061 

R 

0 AC TEMP 

0 0 364 

R 

221061 

R 

LAC* TEMP 

00365 

R 

740001 

A 

CM A 

0036 6 

R 

341107 

R 

TAD ( - 1 

00 367 

R 

341052 

R 

TAP OURBLK 

0037 0 

R 

740100 

A 

5MA 

H0371 

R 

600376 

R 

JMP SRCFWD 

00372 

R 

361076 

R 

DAC* (30 

00373 

R 

201047 

R 

LAC MODE 

0037 4 

R 

707544 

A 

DTX A 

00375 

R 

100454 

R 

JMS FLGCHK 

00376 

R 

201051 

R 

SRCFWD LAC SRCFWN 

00377 

R 

341056 

R 

TAD UNIT 

00400 

R 

707545 

A 

DTLA 

00401 

R 

100454 

R 

JMS FLGCHK 

00402 

R 

740200 

A 

SZA 

00403 

R 

600463 

R 

JMP ERROR 

0 0 40 4 

R 

221100 

R 

LAC* (31 

00405 

R 

041061 

R 

DAC TEMP 

00406 

R 

221061 

R 

LAC* TEMP 

00407 

R 

541052 

R 

SAD OURBLK 

Pi 0 410 

R 

620352 

R 

JMP* SEARCH 

0041 1 

R 

707554 

A 

DTXA+10 

00412 

R 

600401 

R 

JMP SRCFWP+3 
.EJECT 
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PTCOPY SRC 


DTCOPY 






/ A ROUTINE TO FIND A BLOCK NUMBER SPECIFIED BY OURBLK, 
/ UNIT NUMBER MUST BE IN AC, 

/ RETURN TO USER IS PONE WHEN BLOCK IS 
/ FOUND IN THE REVERSE DIRECTION, 

00413 

R 

0 1/1 0 0 00 

A 

SEARCR O 

00 41 4 

R 

0 410 5 6 

R 

DAC UNIT 

0 0 415 

R 

341051 

R 

TAO SRCFWN 

00416 

R 

1 6 1 0 7 6 

R 

DZM* (30 

0 0 417 

R 

707545 

A 

DTLA 

0 3 420 

R 

100454 

R 

JfiS flgchk 

00421 

R 

740200 

A 

SZA? JMP SRCREV 

00422 

R 

600437 

R 


00 423 

R 

221100 

R 

LAC* (31 

00424 

R 

041051 

R 

DAC TEMP 

0 0 425 

R 

201052 

K 

LAC OURBLK 

00 4 26 

R 

740001 

A 

CM A ? TAD C«1 

00427 

R 

341107 

R 


0 0 4 3 0 

R 

361061 

R 

TAP* TEMP 

00431 

R 

740103 

A 

SNA 

00432 

R 

6 0 0 4 37 

R 

JMP SRCREV 

00433 

R 

061076 

R 

DAC* (30 

00434 

R 

20 1047 

R 

LAC MODE 

00435 

R 

707544 

A 

Q T X A 

00436 

R 

100454 

R 

J MS FLGCHK 

00437 

R 

201 0 4 6 

R 

SRCREV LAC SRCRVN 

004 40 

R 

341056 

R 

TAG UNIT 

00441 

R 

7 0 7 5 4 5 

A 

DTLA 

00 4 42 

R 

100454 

R 

JMS FLGCHK 

00443 

R 

740200 

A 

SZA 

00444 

R 

600463 

R 

JMP error 

00445 

R 

221100 

R 

LAC* CJ1 

00 4 46 

R 

041061 

K 

DAC TEMP 

004 4 7 

R 

221061 

R 

LAC* TEMP 

00450 

R 

541052 

R 

SAD OURBLK 

00451 

R 

620413 

R 

JMP* SEARCR 

00452 

R 

707554 

A 

DTXA+10 

0 0 453 

R 

600442 

R 

JMP SRCREV+3 

/ The FOLLOWING ROUTINE WAITS FOR THE SETTING OF EITHER 
/ THE DECTAPE FLAG OR THE ERROR FLAG AND THEN ReTURNS 

/ to user, if the error flag is set , status a will be 
/ IN THE AC. IF The oectape flag set, AC=0. 

00 454 

R 

0 0 0 0 0 0 

A 

FLGCHK 0 

00455 

R 

707573 

A 

DTEF1DTRB 

0 0 4 6 6 

R 

751000 

A 

SKPJCLA 

00457 

R 

620454 

R 

JMP* FLGCHK 

00460 

R 

707601 

A 

DTDF 

0 0 461 

R 

6 0 0455 

R 

JMP .-4 

00462 

R 

620454 

R 

JMP* FLGCHK 
, EJECT 



PAGE 11 OTCOPY SRC DTCOPY 

/ FOLLOWING ROUTINE INTERPRET ANY ERRORS POUND# 
/DATA COMPARE ERRORS 
ERROR DTRB 

0 AC S3BERR* 

SMA 

JMP DATAE 
R T L t HAL 

SNL 

JMP REALER 
LAC SEARCH 
AND win? 

SAD cchkin 
JMP RASS8 
SAD CCNKOUT 
JMP BLKERR 

/REALERoSTATUS 0 ERROR 
REALER SMA 

JMP REAL.l /OTHER STATUS B ERRORS 

LAC MESSlfcj 

CM A 

DAC SBWC 

LAC CMESSX0+1 

REAL.0 J MS SBSTRP 

J M S C R L P 

LAC SSBERR 

HLT 

JMP ASKIN /RESTART 

REAL.l LAC MESSU 

CM A 

DAC SBWC 

LAC CMESS11+1 

JMP REAL # 0 

.EJECT 

o 


o 


o 


o 


o 


o 


o 


o 


o 

0 M 4 <3 3 

R 

707578 

A 

0M464 

R 

M 410 6 7 

R 


00 465 

R 

740100 

A 

o 

00466 

R 

60052 1 

R 

00467 

R 

742010 

A 


00 47 0 

R 

740010 

A 

o 

00 471 

R 

7 40 4 0 0 

A 

00478 

R 

600501 

R 


00473 

R 

200352 

R 

o 

0 0 47 4 

R 

501111 

R 


O0475 

R 

541112 

R 


00476 

R 

600255 

R 

o 

004/7 

R 

541U3 

R 


0 0500 

R 

600531 

R 

o 

0 0 SMI 

R 

7 401 0 0 

A 


00 508 

R 

600514 

R 


00503 

R 

201026 

R 

o 

0 0504 

R 

740001 

A 


0 0 505 

R 

041066 

R 


0 0 5 0 6 

R 

201114 

R 

o 

0 05O7 

R 

100624 

R 

0 0 5 1 0 

R 

100702 

R 


00511 

R 

201067 

R 

o 

O0518 

R 

7 4 M 0 4 O 

A 


0O513 

R 

600043 

R 


00514 

R 

201034 

R 

0 

00515 

R 

740001 

A 

00516 

R 

041066 

R 


0M517 

R 

201115 

R 

o 

00580 

R 

6 0 0507 

R 


o 


PAS32 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

u 

o 

o 

o 

o 

o 

o 



PAGE 


12 


PTCOPY 

SRC 

DTCOPY 









/ D A T A E = 0 A T A 

COMPARE ERROR, 



00521 

R 

2 0 1 0 5 6 

K 

DATAE LAC 

UNIT 



00522 

R 

707545 

A 

DTLA 





00523 

R 

200750 

R 

LAC 


MESS5 



00524 

R 

740001 

A 

CM A 





0 0 525 

R 

041066 

R 

PAC 


SB WC 



00 526 

R 

201116 

R 

LAC 


(MESS5+1 



00527 

R 

100624 

R 

J MS 


SBSTRP 



00 550 

R 

6 0 0 0 4 3 

R 

JMP 

ASKIN 

/RETURN TO 

START OF PROGRAM 





/BLKERRaOUTPUT 

TAPE HAS 1100 

BLOCKS, INPUT 

TAPE 1102. 

00551 

R 

200757 

R 

BLKERR LAC 


M E S 3 6 



00552 

R 

740001 

A 

CM A 





00553 

R 

041066 

R 

PAC 


SB WC 



00554 

R 

20 1U7 

R 

LAC 


(MESS6+ 1 



00555 

R 

100624 

R 

JM5 


SBSTRP 



00 55 6 

R 

200763 

R 

LAC 


M E S S 7 



0 0 55 7 

R 

7 400 0 1 

A 

CM A 





00540 

R 

041066 

R 

DAC 


SB WC 



00541 

R 

201120 

R 

LAC 


CMESS7+1 



00542 

R 

100624 

R 

J MS 


SBSTRP 



00543 

R 

2 00777 

R 

LAC 


MESSB 



vj 0544 

R 

7 4 00 0 1 

A 

CM A 





00545 

R 

041066 

R 

PAC 


SB WC 



00546 

R 

201121 

R 

LAC 


CMESSBtl 



00547 

R 

100624 

R 

JMS 


SBSTRP 



00550 

R 

6 0 0 255 

R 

JMP 

PASS2 







.EJECT 






G 


o 
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DTCOPY 

SRC 

DTCOPY 


0 





/FIND 

OUT CORE SIZE AND ADJUST BUFFER ACCORDINGLY • 


0 kl 5 5 1 

R 

0 0 0 0 0 0 

A 

CQRCHK 

0 



o 

0 0 552 

R 

20 1122 

R 


LAC 

(-3 

G 

00553 

R 

0 4 1 0 6 2 

R 


DAC 

COUNT 


00554 

R 

200551 

R 


LAC 

CQRCHK 


o 

00 555 

R 

501123 

R 


AND 

C 70000 

O 


0 0556 

R 

541123 

R 


SAD 

C 7 0 0 0 0 



00 557 

R 

600573 

R 


JMP 

LOOP 


o 

0 0560 

R 

4 41 0 6 2 

R 


ISZ 

COUNT 

O 


00561 

R 

541124 

R 


sad 

(60000 



00562 

R 

60 0 57 3 

R 


JMP 

LOOP 

O 

0 

00563 

R 

541125 

R 


SAD 

(60000 

00 564 

R 

600573 

R 


JMP 

LOOP 



0 0 565 

R 

441062 

R 


ISZ 

COUNT 


o 

00566 

R 

541126 

R 


SAD 

(40000 

G 

00567 

R 

600573 

R 


JMP 

LOOP 



00 570 

R 

541127 

R 


SAD 

(30000 


o 

00571 

R 

600573 

R 


JMP 

LOOP 

O 


00 57 2 

R 

600126 

R 


JMP 

PASS 1 


00573 

R 

201062 

R 

LOOP 

LAC 

COUNT 


o 

0 0 57 4 

R 

041061 

R 


DAC 

TEMP 

O 


0057 5 

R 

201045 

R 


L A C 

wc 


00 576 

R 

341045 

R 


TAD 

wc 


o 

00577 

R 

441062 

R 


ISZ 

COUNT 

O 

00600 

R 

600576 

R 


JMP 

."2 


00601 

R 

041045 

R 


DAC 

WC 


o 

00602 

R 

201053 

R 


LAC 

skpblk 

O 

M 0603 

R 

341053 

R 


TAD 

SKPBLK 


0060 4 

R 

441061 

R 


ISZ 

TEMP 


o 

0 0 6 3 5 

R 

600603 

R 


JMP 

« "2 

O 


0 0 606 

R 

041053 

R 


DAC 

SKPBLK 


00607 

R 

600126 

R 


JMP 

PASS! 


o 

00610 

R 

0 0 0 0 0 0 

A 

NUMBER 

0 

/CHECK FOR VALID UNIT # „ 

O 

0(06 U 

R 

501130 

R 


AND 

(77 


04612 

R 

34U31 

R 


TAD 

(«60 


o 

0 0 613 

R 

741100 

A 


SPA 


O 


00614 

R 

60061/ 

R 


JMP 

• + 3 



00 615 

R 

341 132. 

R 


TAD 

(-11 


o 

00616 

R 

740100 

A 


SNA 


O 


04617 

R 

751001 

A 


CL A i 

CMAiSKP 


00620 

R 

750000 

A 


CLA 



0 

00621 

R 

620610 

R 


JMP* 

NUMBER 

O 

00622 

R 

000000 

A 

SER V 

0 



00623 

R 

7 40 0 4 0 

A 


HUT 

/ILLEGAL ENTRY INTO DTCOPY MODULE. 


/-•v 

'U 






.EJECT 

O 

o 








u 

o 








O 


O O 



O 


o 
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DTCOPY SRC 


DTCUPY 


/ENTRANCE REQUIRES THAT -WC 
/HE PRESENT IN SBWC AND 
/ ADDR QF MESSAGE BE IN A.C, 


00624 

R 

000000 

A 

SBSTRP 0 



04625 

R 

041065 

R 

DAC 

SBTEMP# 

/SAVE ADDR 

04626 

H 

221065 

R 

LAC* 

SBTEMP 

/GET CNARA 

0M627 

R 

740010 

A 

RAL 



00660 

R 

742010 

A 

RTL 


/ROTATE FIRST 

00631 

R 

742010 

A 

RTL 



00632 

R 

7420UJ 

A 

RTL 



00633 

R 

601130 

R 

AND 

(000077 

/MASK FIRST 

00634 

R 

541133 

R 

SAD 

(0 


00 635 

R 

620624 

R 

JMP* 

SBSTRP 


00636 

R 

100661 

R 

JMS 

TYPE 

/PRINT IT 

00637 

R 

221065 

R 

LAC* 

SBTEMP 

/GET CHARA 

0064 0 

R 

742020 

A 

R TR 



0 0641 

R 

742020 

A 

RTR 


/ROTATE SECOND 

006 42 

R 

742W20 

A 

RTR 



0 0 64 3 

R 

501130 

R 

AND 

(040077 

/MASK SECOND 

00644 

R 

541133 

R 

SAD 

(0 


00645 

R 

620624 

R 

JMP* 

SBSTRP 


0064 6 

R 

100661 

R 

JMS 

TYPE 

/PRINT IT 

00647 

R 

221065 

R 

LAC* 

SBTEMP 

/GET CHARA 

0065 0 

R 

501130 

R 

AND 

C00B077 

/MASK THIRD 

&0651 

R 

541133 

R 

SAD 

(0 


00652 

R 

620624 

R 

JMP* 

SBSTRP 


0065 3 

R 

1 0 0661 

R 

JMS 

TYPE 

/PRINT IT 

006 54 

R 

441066 

R 

167 

SBWC 

/INC. WC 

0 0655 

R 

741000 

A 

SKP 


/DO MORE 

00 65 6 

R 

620624 

R 

JMP* 

SBSTRP 

/EXIT 

0U657 

R 

441065 

R 

ISZ 

SBTEMP 

/INC. MESS ADDR 

00 660 

R 

600626 

R 

JMP 

SBSTRP+2 

[ /STRIP NEXT 


„ EJECT 



G 
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DTCUPY 

SRC 

DTCOPY 



u 

o 








o 





/ENTRANCE MUST 

HE MADE WITH 


o 





/CHARACTER TO 
/IN THE AC 

BE PRINTED 


o 

0 A 5 5 1 

R 

0 0 0000 

A 

TYPE « 





00562 

R 

0 4 1 0 7 0 

R 

DAC 

TYPE,1# 

/SAVE 

0 

o 

0 0 663 

R 

341134 

R 

TAD 

C777740 



00664 

R 

740100 

A 

SMA 





00665 

R 

600 67 1 

R 

JrlP 

• + 4 

/NUMERIC 

Q 

o 

0 0666 

R 

2 0 1 0 7 0 

R 

LAC 

TYPE.l 

/ALPHA 

00667 

R 

341135 

R 

TAD 

(300 




00670 

R 

600673 

R 

JHP 

. +3 


o 

o 

00671 

R 

201070 

R 

LAC 

TYPE.I 


00672 

R 

341 136 

R 

TAD 

(200 




00673 

R 

1 0 0 6 7 5 

R 

J M S 

PRINT 



o 

0 0 6/4 

R 

620661 

R 

JMP* 

TYPE 


o 

0 0 67 5 

R 

0 0 0 0 0 0 

A 

PRINT « 





00676 

R 

700406 

A 

TLS 


/PRINT 


o 

00677 

R 

700401 

A 

TSF 


/WAIT 

o 


0 0 7 0 0 

R 

600677 

R 

JMP 

• - i 

/LOUP 



00701 

R 

620675 

R 

JHP* 

PRINT 

/EXIT 


o 

00702 

R 

000000 

A 

CRLP M 


< 

o 

0 0 703 

R 

201137 

R 

LAC 

(215 




0070 4 

R 

1 P)0675 

R 

J MS 

PRINT 


o 

o 

00705 

R 

201 140 

R 

LAC 

(212 


00706 

R 

100675 

R 

JM3 

PRINT 




00707 

R 

620702 

R 

JHP* 

CRLP 


o 

o 





/EXIT IS MADE 

WITH SINGLE 





/INPUT character IN 








/ANSW+2. 




o 

00710 

R 

0 0 0 0 0 0 

A 

KURD 0 



o 


0 0 7 1 1 

R 

700301 

A 

K5F 


/WAIT 



00712 

R 

600711 

R 

J HP 

• " 1 

/LOOP 


o 

00713 

R 

700312 

A 

KRB 


/GET CMARA 

o 

0071 4 

R 

54 1,141 

R 

SAD 

C377 

/RUBQUT 


00715 

R 

600722 

R 

JHP 

KBROl 

/YES 


o 

0<»716 

R 

541137 

R 

SAQ 

(215 

/CARRIAGE RETURN 

o 

00717 

R 

600724 

R 

JHP 

KBRD1+2 




00720 

R 

5)41042 

R 

DAC 

ANSW+2 

/SAVE IT 


o 

00721 

R 

6007 1 1 

R 

JHP 

K0RO+1 

/GET TERMINATOR 

o 

007 22 

R 

141042 

R 

KURD 1 IUM 

ANSW+2 

/CLEAR PREVIOUS 


00723 

R 

600711 

R 

JHP 

KBRD+i 

/GET NEXT 


o 

00724 

R 

100702 

R 

JMS 

CRLF 


o 


0 0 725 

R 

620710 

R 

JHP* 

.EJECT 

KBRQ 



o 








o 

o 








o 

o 








o 

o 








o 

o 








o 

o 








o 
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DTCOPY 

SRC 

DTCOPY 

m7 26 

R 

4 0 0 4 0 4 

A 

MESS1 

MESS2-MESS1-1 

0 t'j 7 27 

R 

4 4 Id 5 fj 3 

A 


,3IXBT "OECTAPE COPY" 

W M 7 .3 (4 

R 

244120 

A 



0 id 731 

R 

0 5 4 0 0 3 

A 



W073 2 

R 

1.72431 

A 



00733 

R 

040004 

A 

MESS2 

MESS3-MESS2-1 

00 7 34 

R 

1 11620 

A 


.3IX8T "INPUT UNIT!" 

0073b 

R 

252444 

A 



00736 

R 

251611 

A 



00737 

R 

24/240 

A 



007 40 

R 

400004 

A 

MESS3 

MESS4-MESS3-1 

007 41 

R 

1.72524 

A 


• S I XBT "OUTPUT UNIT:" 

00742 

R 

202524 

A 



007 43 

R 

402516 

A 



00744 

R 

1124/2 

A 



00743 

R 

000002 

A 

MESS4 

M£SS5-*MESS4- 1 

00746 

R 

0 4 1 7 1 6 

A 


. 5 1 XBT "DONEi" 

00747 

R 

054100 

A 



0 0 7 5 0 

R 

0 0 0 0 0 D 

A 

MESS5 

M£S$6-MESS5-1 

00751 

R 

440124 

A 


« S I X B T "DATA COMPARE ERROR" 

00752 

R 

0144 4 3 

A 



00753 

R 

171520 

A 



047 5 4 

R 

012245 

A 



0 4 7 o 5 

R 

404522 

A 



0 0756 

R 

221722 

A 



00 757 

R 

4 0 0003 

A 

MESS8 

ME3S7-MESS6-1 

0/1730 

R 

270122 

A 


, S I X B T "WARNING J " 

0 4 7 61 

R 

161116 

A 



04762 

R 

474100 

A 



4 0 7 63 

R 

000013 

A 

MESS7 

MESS8-MESS7-1 

0 0 7 64 

R 

1 11620 

A 


, S I XBT "INPUT UNIT HAS 1102 (OCT) BLOCKS, 

04765 

R 

252440 

A 



00 766 

R 

2 5 1 6 1 1 

A 



00767 

R 

244010 

A 



04770 

R 

412340 

A 



04771 

R 

616160 

A 



04772 

R 

624050 

A 



04773 

R 

1.70 32 4 

A 



0 4 7 7 4 

R 

514002 

A 



00775 

R 

141703 

A 



007 7 6 

R 

132356 

A 



04777 

R 

•4 00014 

A 

MESS8 

MESS9-MESS8-1 

01000 

R 

172524 

A 


» S I XBT "OUTPUT UNIT HAS 1100 (OCT) BLOCKS 

01001 

R 

202524 

A 



010 4 2 

R 

402516 

A 



01043 

R 

1. 12 4 40 

A 



01044 

R 

100123 

A 



01005 

R 

406161 

A 



01046 

R 

6 0 6 0 4 0 

A 



01047 

R 

501703 

A 



0 1 0 1 0 

R 

2 4 5 1 4 0 

A 



01011 

R 

321417 

A 



01012 

R 

031323 

A 





PAGE 17 


DTCOPY SRC 


OTCOPY 


010X3 

R 

560000 

A 


010X4 

R 

0 0 0 0 1 1 

A 

MESS 9 M£S310-MESS9«1 

010X5 

R 

111620 

A 

t S I XBT "INPUT & OUTPUT UNITS SANE 

01015 

R 

R52440 

A 


01017 

R 

464017 

A 


01020 

R 

252420 

A 


01021 

R 

252440 

A 


01022 

R 

251611 

A 


01023 

R 

2 42340 

A 


01024 

R 

2301 15 

A 


01025 

R 

055600 

A 


01026 

R 

000005 

A 

MESS10 M£S811«MES$10"! 

01027 

R 

251611 

A 

* S I XBT "UNIT NOT READY” 

01030 

R 

244016 

A 


01031 

R 

172440 

A 


01032 

R 

220501 

A 


01033 

R 

0 431 0 0 

A 


01034 

R 

0 0 0 0 0 2 

A 

MESS 1 1 END MESS- ME3S11-1 

01035 

R 

010217 

A 

• 3 I X BT "ABORT" 

01036 

R 

222400 

A 


01037 

R 

0 0 0 0 0 0 

A 

ENDMESS 0 

01040 

R 


A 

ANSW ,BUOCK 4 





•IFPEF APSS 





BUFFER 1777 





. ENDC 





, IFUNO A D S 3 

010 4 4 

R 

004777 

A 

BUFFER 4777 





„ENQC 

01045 

R 

764000 

A 

WC -14000 

01046 

R 

0 6 1 0 0 0 

A 

SRCRVN 61000 

01047 

R 

010000 

A 

MODE 10000 

01000 

R 

0 2 0 0 0 0 

A 

STOP 20000 

01051 

R 

021000 

A 

SRCFWN 21000 

01052 

R 

0 0 0 0 0 0 

A 

QURBLK 0 

01053 

R 

0 0 0 0 3 0 

A 

SKPBLK 3D 

h 1054 

R 

0 1 300 0 

A 

REAP 13000 

01055 

R 

0 1 5 0 0 0 

A 

WRITE 15000 

0 1056 

R 

0 0 0 0 0 0 

A 

UNIT 0 

01057 

R 

0 0 0 0 0 0 

A 

UNTIN 0 

01060 

R 

000000 

A 

UNTOUT 0 



7 0 7 5 4 5 

A 

0TLA=7»7545 



707544 

A 

PTXA«707544 



/07561 

A 

DTEFs707561 



707572 

A 

DTRB=707572 



707601 

A 

P T D F = 7 0 7 6 0 1 



707552 

A 

DTRA=707552 



7 0 0 0 0 2 

A 

10 F =7000 02 



700042 

A 

ION=700042 



700406 

A 

TLS=700406 



7 0 0 4 0 1 

A 

TSF=700401 



70030 1 

A 

KSF=700301 



700312 

A 

KR 0=700312 

010 61 

R 

0 0 0 0 0 0 

A 

TEMP; COUNT? COMP 0? 0 
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DTCOPY 

SRC 

01062 

R 

0 0 0 0 0 0 

A 


01 was 

R 

0 0 0 V) 0 0 

A 


0 10 0 4 

R 

0 0 0 tO 0 0 

A 




0 0 0 0 W 0 

R 


01071 

R 

000727 

R 

*L 

01O72 

R 

0 W 0734 

R 

*L 

01073 

R 

0 0 0 0 0 7 

A 

*L 

01074 

R 

0 0 0/41 

R 

*L 

01075 

R 

764000 

A 

*L 

0 10 76 

R 

0 0 0 0 3 0 

A 

★ l 

01077 

R 

A 01015 

R 

*L 

01100 

R 

000031 

A 

*L 

0 1101 

R 

001 100 

A 

*L 

011O2 

R 

777000 

A 

*L 

01103 

R 

001101 

A 

*L 

01104 

R 

001063 

R 

*1 

01105 

R 

000010 

A 

*L 

0 11 0 6 

R 

001077 

A 

*L 

01107 

R 

777777 

A 

*L 

01110 

R 

000746 

R 

*L 

01111 

R 

077777 

A 

*L 

01118 

R 

000173 

R 

*1 

01113 

R 

000210 

R 

*L 

01114 

R 

001027 

R 

*L 

01115 

R 

0 010 35 

R 

*L 

01116 

R 

000751 

R 

*1 

01117 

R 

000760 

R 

*L 

01120 

R 

000/64 

R 

*L 

01121 

R 

001000 

R 

*L 

01122 

R 

777775 

A 

*L 

01123 


g 7 0 000 

A 

*1 

01124 

R 

g 60000 

A 

*L 

01125 

R 

050000 

A 

*L 

01126 

R 

0 4 0000 

A 

*L 

01127 

R 

030000 

A 

*L 

01130 

R 

000077 

A 

*L 

01131 

R 

777720 

A 

*1 

01132 

R 

777767 

A 

*1 

01133 

R 

0 0 0 0 0 0 

A 

*L 

01134 

R 

777740 

A 

*L 

01135 

R 

900300 

A 

*1 

01136 

R 

9 0 020 0 

A 

*L 

01137 

R 

909215 

A 

*L 

0 1140 

R 

900212 

A 

*L 

01141 

R 

0 0 0 3 7 7 

A 

*L 



SIZE: 

=91145 


DTCUPY 


•END UODSW 


NO ERROR LINES 



o 

PAGE 19 OTCOPY SRC DTCOP 

ANSW 010 43) R ASKIN 00043 

BUFFER 0 104 4 R CHKIN 00173 

O COMAGN 00 3 2-/} R COMP 01063 

CRLF 00702 R DATAE 00321 

DTEF 707361 A DTLA 707543 

O DTXA 707544 A ENDMES 01037 

FLGCHK 00454 R INIT 00033 

KBRD 0071M R KBRP1 00722 

O LOOP 00573 R MESS1 00726 

MESSg 00733 R ME5S3 00740 

MESS6 U0757 R MESS 7 00763 

O MODE 01047 R NUMBER 00610 

P A S S 2 00255 R PRINT 00675 

REAL • M 00507 R REAL « 1 00514 

o SBTEMP 01065 R SBWC 01066 

SERV 00622 R SKP8LK 01033 

SRCREV 00437 R SRCRVN 01046 

O SYSERR 00020 R TEMP 01061 

TYPE 00661 R TYPE * 1 01070 

UNTIN 01037 R UNTOUT 01060 

Q WRITE 01055 R 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


O 


Y 


R 

ASKOUT 

00063 

R 

BLKERR 

00531 

R 

R 

CHKOUT 

00210 

R 

CHK11 

00167 

R 

R 

CORCHK 

00551 

R 

COUNT 

01062 

R 

R 

DONE 

00343 

R 

QTDF 

707601 

A 

A 

DTR A 

707552 

A 

DTRB 

707572 

A 

R 

ERCODE 

00021 

R 

ERROR 

00463 

R 

R 

IGF 

700002 

A 

ION 

700042 

A 

R 

KRB 

700312 

A 

KSF 

700301 

A 

R 

MESS 1 0 

01026 

R 

MESS 1 1 

01034 

R 

R 

MESS4 

00 745 

R 

MESS5 

00750 

R 

R 

MESS8 

00777 

R 

ME3S9 

01014 

R 

R 

OURBLK 

01052 

R 

PASS 1 

00126 

R 

R 

READ 

01034 

R 

REALER 

00501 

R 

R 

RESTRT 

00121 

R 

SBSTRP 

00624 

R 

R 

SEARCH 

00352 

R 

5EARCR 

00413 

R 

R 

SRCFWD 

00376 

R 

3RCFWN 

01051 

R 

R 

SSBERR 

01067 

R 

STOP 

01050 

R 

R 

TLS 

700406 

A 

TSF 

700401 

A 

R 

UNIT 

01056 

R 

UN1TEQ 

00112 

R 

R 

UODSH 

00000 

R 

wc 

01045 

R 


o 

o 

o 

o 

o 

o 

u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 


o 



PAGE 20 


DTCOPY SRC OTCOPY 


o 













c- 

UODSW 

0 0 0 fel fy 

R 

SYSERR 

00020 

H 

ERCPDE 

00 O 21 

R 

IN I T 

00O33 

R 



ASKIN 

0O043 

R 

ASKOUT 

00063 

R 

UNI TEU 

0 O 112 

R 

RESTRT 

00121 

R 


o 

PASS 1 

00126 

R 

CHKil 

0 0167 

R 

CHKIN 

00173 

R 

CHKOUT 

00210 

R 

o 

PASS 2 

00255 

R 

CQMAGN 

00320 

R 

DUNE 

00 343 

R 

search 

00352 

R 


SRCFWQ 

0037 6 

R 

SEARCR 

0O413 

K 

SRCREV 

00437 

R 

FLGCHK 

00454 

R 


o 

ERROR 

00463 

R 

REALER 

00501 

R 

RE AL « O 

00507 

R 

REAL , 1 

00514 

R 

o 

DATAE 

00521, 

R 

BLKERR 

00531 

R 

CORCHK 

00 551 

R 

LOUP 

00573 

R 


NUMBER 

H0610 

R 

SER V 

00622 

R 

SBSTRP 

00624 

R 

TYPE 

00661 

R 


o 

PRINT 

00675 

R 

CRLF 

O07O2 

R 

KURD 

00710 

R 

KBRP 1 

00722 

R 

o 

MESS1 

00726 

R 

MESS 2 

00733 

R 

M E S S 3 

007 40 

R 

MESS4 

00745 

R 


MESS5 

O075O 

R 

MESS 6 

00757 

R 

MESS7 

00763 

R 

MESSQ 

00777 

R 


o 

MESS9 

01014 

R 

MESS 10 

01026 

R 

MESS 1 1 

01034 

R 

ENDMES 

01037 

R 

o 

A NSW 

010 4 O 

R 

BUFFER 

01044 

R 

WC 

01045 

R 

SRCRVM 

0104 6 

R 



MODE 

010 47 

R 

STOP 

01050 

R 

SRCFWN 

01051 

R 

□ URBLK 

01052 

R 

o 

0 

SKPBIK 

01053 

R 

READ 

01054 

R 

WRITE 

01055 

R 

UNIT 

01056 

R 


UNTIN 

O1057 

R 

untout 

0106 0 

R 

TEMP 

01061 

R 

COUNT 

01062 

R 



COMP 

0106 3 

R 

SBTEMP 

01065 

R 

SB WC 

0 1066 

R 

SS 8 ERR 

01067 

R 

o 

o 

TYPE, 1 

010 70 

R 

I0F 

700002 

A 

I UN 

700042 

A 

KSF 

700301 

A 

KRB 

70031? 

A 

TSF 

7OO40 1 

A 

TLS 

700406 

A 

DTK A 

707544 

A 



DTLA 

7 M 7 5 4 5 

A 

dtra 

707552 

A 

DTEF 

707561 

A 

DTRB 

707572 

A 


o 

DTDF 

707601 

A 










o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 

o 













o 



